package BuildCommand::SetAgeing;

# $Id: SetAgeing.pm 305 2010-08-07 10:36:09Z dolbanavt $
# $Date: 2010-08-07 13:36:34 +0300 (Суб, 07 Авг 2010) $
# $HeadURL: https://robosearch.googlecode.com/svn/branches/reborn/lib/BuildCommand/SetAgeing.pm $
# $LastChangedRevision: 340 $

use parent qw( BuildCommand );
use JIP::ToolSet;
use Carp qw( croak );
use English qw( -no_match_vars );

our $VERSION = '1.0';

sub execute {
    my $self = shift;

    $self->_log_step_header('SetAgeing');

    $self->get_log->Note(
        'удаление файлов для эйджинга '. $self->get_conf->ageing
    ) and $self->get_dbh->remove_files_older_then( $self->get_conf->ageing );

    return 1;
}

1;

__END__

=head1 NAME

BuildCommand::SetAgeing - шаг билда базы данных.

=head1 SYNOPSIS

    use BuildCommand::SetAgeing;

    my $t = BuildCommand::SetAgeing->new();

=head1 DESCRIPTION

Удаляет данные о файлах и директориях для хостов которые
индексировались в последний раз очень давно. Срок давности
задается в конфиге - ageing.

=head1 DEPENDENCIES

JIP::ToolSet (from base_lib)

=head1 AUTHOR

Vladimir Zhavoronkov, <dolbanavt (at) Google Mail>

http://dolbanavt.livejournal.com/

=head1 LICENSE AND COPYRIGHT

This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.

=cut
